home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Magazine / Online / QMail / source / control.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-15  |  2.2 KB  |  130 lines
  1. #include "readwrite.h"
  2. #include "open.h"
  3. #include "getln.h"
  4. #include "stralloc.h"
  5. #include "substdio.h"
  6. #include "error.h"
  7. #include "control.h"
  8. #include "alloc.h"
  9. #include "scan.h"
  10.  
  11. static char inbuf[64];
  12. static stralloc line = {0};
  13. static stralloc me = {0};
  14. static int meok = 0;
  15.  
  16. static void striptrailingwhitespace(sa)
  17. stralloc *sa;
  18. {
  19.  while (sa->len > 0)
  20.    switch(sa->s[sa->len - 1])
  21.     {
  22.      case '\n': case ' ': case '\t':
  23.        --sa->len;
  24.        break;
  25.      default:
  26.        return;
  27.     }
  28. }
  29.  
  30. int control_init()
  31. {
  32.  int r;
  33.  r = control_readline(&me,"control/me");
  34.  if (r == 1) meok = 1;
  35.  return r;
  36. }
  37.  
  38. int control_rldef(sa,fn,flagme,def)
  39. stralloc *sa;
  40. char *fn;
  41. int flagme;
  42. char *def;
  43. {
  44.  int r;
  45.  r = control_readline(sa,fn);
  46.  if (r) return r;
  47.  if (flagme) if (meok) return stralloc_copy(sa,&me) ? 1 : -1;
  48.  if (def) return stralloc_copys(sa,def) ? 1 : -1;
  49.  return r;
  50. }
  51.  
  52. int control_readline(sa,fn)
  53. stralloc *sa;
  54. char *fn;
  55. {
  56.  substdio ss;
  57.  int fd;
  58.  int match;
  59.  
  60.  fd = open_read(fn);
  61.  if (fd == -1) { if (errno == error_noent) return 0; return -1; }
  62.  
  63.  substdio_fdbuf(&ss,read,fd,inbuf,sizeof(inbuf));
  64.  
  65.  if (getln(&ss,sa,&match,'\n') == -1) { close(fd); return -1; }
  66.  
  67.  striptrailingwhitespace(sa);
  68.  close(fd);
  69.  return 1;
  70. }
  71.  
  72. int control_readint(i,fn)
  73. int *i;
  74. char *fn;
  75. {
  76.  unsigned long u;
  77.  switch(control_readline(&line,fn))
  78.   {
  79.    case 0: return 0;
  80.    case -1: return -1;
  81.   }
  82.  if (scan_nbblong(line.s,line.len,10,0,&u) == 0) return 0;
  83.  *i = u;
  84.  return 1;
  85. }
  86.  
  87. int control_readfile(sa,fn,flagme)
  88. stralloc *sa;
  89. char *fn;
  90. int flagme;
  91. {
  92.  substdio ss;
  93.  int fd;
  94.  int match;
  95.  
  96.  if (!stralloc_copys(sa,"")) return -1;
  97.  
  98.  fd = open_read(fn);
  99.  if (fd == -1) 
  100.   {
  101.    if (errno == error_noent)
  102.     {
  103.      if (flagme && meok)
  104.       {
  105.        if (!stralloc_copy(sa,&me)) return -1;
  106.        if (!stralloc_0(sa)) return -1;
  107.        return 1;
  108.       }
  109.      return 0;
  110.     }
  111.    return -1;
  112.   }
  113.  
  114.  substdio_fdbuf(&ss,read,fd,inbuf,sizeof(inbuf));
  115.  
  116.  for (;;)
  117.   {
  118.    if (getln(&ss,&line,&match,'\n') == -1) break;
  119.    if (!match && !line.len) { close(fd); return 1; }
  120.    striptrailingwhitespace(&line);
  121.    if (!stralloc_0(&line)) break;
  122.    if (line.s[0])
  123.      if (line.s[0] != '#')
  124.        if (!stralloc_cat(sa,&line)) break;
  125.    if (!match) { close(fd); return 1; }
  126.   }
  127.  close(fd);
  128.  return -1;
  129. }
  130.